﻿Imports System.Net
Imports VBWebAPI

Module Test
    Private ReadOnly svr As New WebAPI
    Sub Main()
        svr.SimpleToken = "333"  '简单token验证（自动） 如不需要注释掉即可
        'svr.JWT.Enabled = True '启用JWT验证（自动）,如不需要注释掉即可。默认加密密码为 mr123456 ，建议修改
        '两个验证同时开启时，JWT验证优先级高于简单token验证

        '添加路由映射
        svr.Routes.Add("/api/v1/hello", AddressOf UserSub)
        'svr.RouteWhiteList.Add("/api/v1/hello") '白名单中的路由无需验证
        svr.StartServer() '启动 WebAPI 服务,默认端口8090 传入参数可修改端口

        Console.WriteLine($"VBWebApi服务已启动！访问地址：http://localhost:8090/api/v1/hello 按任意键退出。")
        Console.ReadKey() '保持窗口运行，直到按下任意键退出 
    End Sub

    Private Async Function UserSub(request As HttpListenerRequest, response As HttpListenerResponse) As Task
        If request.HttpMethod.ToUpper = "GET" Then  '不判断则表示支持所有请求方式
            '处理GET请求
            Await response.WriteAsync("Hello vb!")
        Else
            Await response.WriteAsync("访问方式错误，只支持GET请求！")
        End If
    End Function
End Module
